Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-4/card_11386.txt

Text File | 1990-04-06 | 6KB | 259 lines

-- card: 11386 from stack: in.0-4
-- bmap block id: 11553
-- flags: 0000
-- background id: 7102
-- name: Ex 3.5
----- HyperTalk script -----
-- The "resetBtns" and "hideFeedback" handlers are in the stack script.
on resetCd
  resetBtns
  hideFeedback
end resetCd



-- part 10 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=167 top=100 right=159 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: definition1


-- part 11 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=167 top=164 right=223 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: definition2


-- part 12 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=167 top=228 right=287 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: definition3


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=57 top=105 right=156 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: clickLine
----- HyperTalk script -----
-- The "dragTarg" handler is in the stack script.
on mouseStillDown
  dragTarg
end mouseStillDown

-- The "dropIt" handler is in the card script.
on mouseUp
  dropIt 3
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=57 top=170 right=221 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: clickChunk
----- HyperTalk script -----
-- The "dragTarg" handler is in the stack script.
on mouseStillDown
  dragTarg
end mouseStillDown

-- The "dropIt" handler is in the card script.
on mouseUp
  dropIt 3
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=57 top=235 right=286 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: clickText
----- HyperTalk script -----
-- The "dragTarg" handler is in the stack script.
on mouseStillDown
  dragTarg
end mouseStillDown

-- The "dropIt" handler is in the card script.
on mouseUp
  dropIt 3
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=400 top=316 right=336 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
-- This handler checks the user's answer.
-- It steps through the 3 btns, checking to see if its loc
-- matches the loc of its box (a fld).  If not, the btn is moved
-- back to its original loc.  If all 4 are right, feedback is shown.
-- The "moveBtnBack" and "ans" handlers are in the stack script.
on mouseUp
  put "132" into correct
  put 0 into numRight
  repeat with i=1 to 3
    if loc of btn id i is not loc of cd fld ("definition" & (char i of correct)) then
      moveBtnBack i
    else
      add 1 to numRight
    end if
  end repeat
  if numRight = 3 then ans 1,cd
end mouseUp



-- part 15 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=0 right=62 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: theLocs
----- HyperTalk script -----
-- This is just a little utility that updates this fld.
-- This handler puts their locs of the btns into this fld, so they can
-- be used later by "moveBtnBack" and "resetBtns".
on mouseUp
  if the optionKey is down then
    repeat with i = 1 to number of cd btns
      put the loc of cd btn i into line i of me
    end repeat
  end if
end mouseUp



-- part 18 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=43 top=299 right=326 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: feedback
----- HyperTalk script -----
on mouseUp
  put empty into me
  hide me
end mouseUp


-- part 19 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=268 top=318 right=335 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Correct Answer
----- HyperTalk script -----
-- This handler shows the correct answer.  It dehilites all btns,
-- then hilites the correct ones.
on mouseUp
  hideFeedback
  resetBtns
  lock screen
  set the loc of cd btn 1 to 199,129
  set the loc of cd btn 2 to 199,257
  set the loc of cd btn 3 to 199,193
  unlock screen with visual dissolve
end mouseUp

199,129
199,257
199,193



-- part contents for background part 9
----- text -----
5 of 7

-- part contents for background part 6
----- text -----
Drag the functions below into the box in front of description of what the functions return.

-- part contents for card part 15
----- text -----
85,130
85,195
85,260
429,326
327,326

-- part contents for background part 19
----- text -----
Very good!